VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsMessage"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit


Private pChildren As clscMessages
Public Subject As String
Public Sender As String
Public DateSent As Date
Public Message As String
Public Image As Variant 'required. Index or key of an icon in an imagelist
Public HasChildren As Boolean 'required. ThreadView needs this to know whether draw plus/minus
Public Parent As clscMessages
Public ID As Long

'Requred  function
Public Function Properties(value)

Select Case value
    Case "Subject"
        Properties = Subject
    Case "Sender"
        Properties = Sender
    Case "DateSent"
        Properties = DateSent
    Case "Message"
        Properties = Message
    Case "Parent"
        Set Properties = Parent
    Case "ID"
        Properties = ID
    Case Else
        'Trap your own typing mistakes
        Properties = "#Error#"
End Select

End Function

Private Sub Class_Initialize()
Image = "Text"

End Sub

Public Property Get Children()

If pChildren Is Nothing Then
    Set pChildren = New clscMessages
    pChildren.Create Me
End If

Set Children = pChildren

End Property




